home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / data / nos / road2.plp < prev    next >
Text File  |  1995-08-13  |  10KB  |  312 lines
  1. /*    ＲＯＡＤ２の電話番号一覧選択    */
  2. %setTEL    {
  3.     SNDMSG({erande.snd});
  4.     footnote({ROAD2 ｱｸｾｽ･ﾎﾟｲﾝﾄの電話番号を直接入力処理中,,,♪});
  5.     %a @input({ROAD2の電話番号を入力してネ☆（入力後は｢ﾘﾀｰﾝｷｰ↓｣）},,
  6.         ROAD2);
  7.     case    (a<>{},    {Yes},{ROAD2:=@getchar(a,1,80)},
  8.             {No},{setTEL});
  9.     };
  10.  
  11. %HOKKAIDO{
  12.     SNDMSG({erande.snd});
  13.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  14.         ,,
  15.         { 札  幌 },{ROAD2:={011-898-3344}},
  16.         { 滝  川 },{ROAD2:={0125-22-4126}},
  17.         { 岩見沢 },{ROAD2:={0126-24-4940}},
  18.         { 小  樽 },{ROAD2:={0134-24-5660}},
  19.         { 函  館 },{ROAD2:={0138-56-8214}},
  20.         { 室  蘭 },{ROAD2:={0143-43-2271}},
  21.         { 苫小牧 },{ROAD2:={0144-36-6081}},
  22.         { 網  走 },{ROAD2:={0152-44-9728}},
  23.         { 釧  路 },{ROAD2:={0154-22-1726}},
  24.         { 帯  広 },{ROAD2:={0155-25-7511}},
  25.         { 北  見 },{ROAD2:={0157-25-9103}},
  26.         { 旭  川 },{ROAD2:={0166-24-6801}},
  27.         {直接入力},{setTEL}
  28.         );
  29.     };
  30.  
  31. %TOHOKU    {
  32.     SNDMSG({erande.snd});
  33.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  34.         ,,
  35.         { 弘  前 },{ROAD2:={0172-37-8200}},
  36.         { 青  森 },{ROAD2:={0177-29-1920}},
  37.         { 八  戸 },{ROAD2:={0178-47-3260}},
  38.         { 本　荘 },{ROAD2:={0184-23-6419}},
  39.         { 大  館 },{ROAD2:={0186-42-0762}},
  40.         { 秋  田 },{ROAD2:={0188-31-6640}},
  41.         { 一  関 },{ROAD2:={0191-26-5701}},
  42.         { 盛  岡 },{ROAD2:={0196-51-4221}},
  43.         { 北  上 },{ROAD2:={0197-64-7636}},
  44.         { 仙  台 },{ROAD2:={022-213-3322}},
  45.         { 石  巻 },{ROAD2:={0225-22-8311}},
  46.         { 古  川 },{ROAD2:={0229-24-2811}},
  47.         { 酒  田 },{ROAD2:={0234-26-7666}},
  48.         { 山  形 },{ROAD2:={0236-25-6213}},
  49.         { 東  根 },{ROAD2:={0237-43-7780}},
  50.         { 米  沢 },{ROAD2:={0238-37-4959}},
  51.         {会津若松},{ROAD2:={0242-32-3190}},
  52.         { 福  島 },{ROAD2:={0245-22-1609}},
  53.         { いわき },{ROAD2:={0246-21-7622}},
  54.         { 郡  山 },{ROAD2:={0249-21-2194}},
  55.         {直接入力},{setTEL}
  56.         );
  57.     };
  58.  
  59. %NKANTO    {
  60.     SNDMSG({erande.snd});
  61.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  62.         ,,
  63.         { 伊勢崎 },{ROAD2:={0270-24-7887}},
  64.         { 前  橋 },{ROAD2:={0272-54-2300}},
  65.         { 高  崎 },{ROAD2:={0273-27-8955}},
  66.         { 館  林 },{ROAD2:={0276-75-4101}},
  67.         { 桐  生 },{ROAD2:={0277-44-0088}},
  68.         { 足  利 },{ROAD2:={0284-73-3711}},
  69.         { 小  山 },{ROAD2:={0285-24-9350}},
  70.         { 宇都宮 },{ROAD2:={0286-38-9999}},
  71.         { 那  須 },{ROAD2:={0287-29-3304}},
  72.         { 水  戸 },{ROAD2:={029-228-1393}},
  73.         { 日  立 },{ROAD2:={0294-21-5820}},
  74.         { 下  館 },{ROAD2:={0296-25-6401}},
  75.         { 筑  波 },{ROAD2:={0298-55-0808}},
  76.         { 所  沢 },{ROAD2:={0429-25-6401}},
  77.         { 浦  和 },{ROAD2:={048-825-8920}},
  78.         { 川  口 },{ROAD2:={048-226-0471}},
  79.         { 熊  谷 },{ROAD2:={0485-22-9270}},
  80.         { 越  谷 },{ROAD2:={0489-66-9950}},
  81.         { 川  越 },{ROAD2:={0492-48-1160}},
  82.         { 本  庄 },{ROAD2:={0495-22-7191}},
  83.         {直接入力},{setTEL}
  84.         );
  85.     };
  86.  
  87. %SKANTO    {
  88.     SNDMSG({erande.snd});
  89.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  90.         ,,
  91.         { 千  葉 },{ROAD2:={043-299-3300}},
  92.         { 市  原 },{ROAD2:={0436-42-2291}},
  93.         { 君  津 },{ROAD2:={0439-55-5030}},
  94.         { 川  崎 },{ROAD2:={044-755-4466}},
  95.         { 横 浜A },{ROAD2:={045-320-8900}},
  96.         { 横 浜B },{ROAD2:={045-323-5511}},
  97.         { 厚  木 },{ROAD2:={0462-50-3260}},
  98.         { 平  塚 },{ROAD2:={0463-24-9140}},
  99.         { 小田原 },{ROAD2:={0465-24-4130}},
  100.         { 藤  沢 },{ROAD2:={0466-24-6641}},
  101.         { 横須賀 },{ROAD2:={0468-24-5272}},
  102.         {   柏   },{ROAD2:={0471-46-4090}},
  103.         { 松  戸 },{ROAD2:={0473-66-1591}},
  104.         { 船  橋 },{ROAD2:={0474-35-8900}},
  105.         { 茂  原 },{ROAD2:={0475-22-1369}},
  106.         { 成  田 },{ROAD2:={0476-23-5181}},
  107.         { 佐  原 },{ROAD2:={0478-52-6250}},
  108.         {直接入力},{setTEL}
  109.         );
  110.     };
  111.  
  112. %TOKYO    {
  113.     SNDMSG({erande.snd});
  114.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  115.         ,,
  116.         { 東 京A },{ROAD2:={03-5710-4600}},
  117.         { 東 京B },{ROAD2:={03-5710-5600}},
  118.         { 東 京C },{ROAD2:={03-5710-5100}},
  119.         { 東 京D },{ROAD2:={03-5703-0222}},
  120.         { 稲  城 },{ROAD2:={0423-78-9911}},
  121.         { 調  布 },{ROAD2:={0424-99-0200}},
  122.         { 立  川 },{ROAD2:={0425-29-7717}},
  123.         { 八王子 },{ROAD2:={0426-22-3141}},
  124.         { 町  田 },{ROAD2:={0427-99-4911}},
  125.         {直接入力},{setTEL}
  126.         );
  127.     };
  128.  
  129. %HOKURIKU{
  130.     SNDMSG({erande.snd});
  131.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  132.         ,,
  133.         { 新  潟 },{ROAD2:={025-244-7554}},
  134.         { 上  越 },{ROAD2:={0255-26-3683}},
  135.         {   巻   },{ROAD2:={0256-93-6270}},
  136.         { 長  岡 },{ROAD2:={0258-33-8100}},
  137.         { 長  野 },{ROAD2:={0262-26-4430}},
  138.         { 松  本 },{ROAD2:={0263-35-7999}},
  139.         { 飯  田 },{ROAD2:={0265-53-6700}},
  140.         { 諏  訪 },{ROAD2:={0266-52-5525}},
  141.         { 佐  久 },{ROAD2:={0267-63-6391}},
  142.         { 軽井沢 },{ROAD2:={0267-45-2640}},
  143.         { 上  田 },{ROAD2:={0268-25-8800}},
  144.         {近江八幡},{ROAD2:={0748-36-0020}},
  145.         { 小  松 },{ROAD2:={0761-23-5501}},
  146.         { 金  沢 },{ROAD2:={0762-60-7971}},
  147.         { 富  山 },{ROAD2:={0764-55-3378}},
  148.         { 高  岡 },{ROAD2:={0766-26-9554}},
  149.         { 七  尾 },{ROAD2:={0767-54-0482}},
  150.         { 敦  賀 },{ROAD2:={0770-23-5560}},
  151.         { 福  井 },{ROAD2:={0776-24-9528}},
  152.         {直接入力},{setTEL}
  153.         );
  154.     };
  155.  
  156. %TYUBU    {
  157.     SNDMSG({erande.snd});
  158.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  159.         ,,
  160.         { 名古屋 },{ROAD2:={052-222-2911}},
  161.         { 浜  松 },{ROAD2:={053-458-5596}},
  162.         { 豊  橋 },{ROAD2:={0532-53-9511}},
  163.         { 掛  川 },{ROAD2:={0537-22-2140}},
  164.         { 静  岡 },{ROAD2:={054-272-4011}},
  165.         { 清  水 },{ROAD2:={0543-67-2181}},
  166.         { 富　士 },{ROAD2:={0545-60-2600}},
  167.         { 甲  府 },{ROAD2:={0552-26-8700}},
  168.         { 下  田 },{ROAD2:={0558-23-2210}},
  169.         { 沼  津 },{ROAD2:={0559-25-3121}},
  170.         { 瀬　戸 },{ROAD2:={0561-53-8900}},
  171.         { 岡  崎 },{ROAD2:={0564-26-3731}},
  172.         { 豊  田 },{ROAD2:={0565-26-7981}},
  173.         { 刈  谷 },{ROAD2:={0566-25-1339}},
  174.         { 春日井 },{ROAD2:={0568-51-6500}},
  175.         { 半  田 },{ROAD2:={0569-26-2815}},
  176.         { 多治見 },{ROAD2:={0572-25-6840}},
  177.         { 高  山 },{ROAD2:={0577-32-5401}},
  178.         { 岐  阜 },{ROAD2:={0582-53-7120}},
  179.         { 大  垣 },{ROAD2:={0584-81-0896}},
  180.         { 一  宮 },{ROAD2:={0586-46-2910}},
  181.         {   津   },{ROAD2:={0592-29-1520}},
  182.         { 四日市 },{ROAD2:={0593-54-9304}},
  183.         { 桑  名 },{ROAD2:={0594-23-1851}},
  184.         { 伊  勢 },{ROAD2:={0596-27-1705}},
  185.         {直接入力},{setTEL}
  186.         );
  187.     };
  188.  
  189. %KINKI    {
  190.     SNDMSG({erande.snd});
  191.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  192.         ,,
  193.         { 大 阪A },{ROAD2:={06-944-4500}},
  194.         { 大 阪B },{ROAD2:={06-941-7006}},
  195.         { 枚  方 },{ROAD2:={0720-45-2704}},
  196.         {   堺   },{ROAD2:={0722-27-9436}},
  197.         { 泉佐野 },{ROAD2:={0724-69-4800}},
  198.         { 茨  木 },{ROAD2:={0726-24-9130}},
  199.         { 池  田 },{ROAD2:={0727-27-5111}},
  200.         { 和歌山 },{ROAD2:={0734-74-8180}},
  201.         { 新  宮 },{ROAD2:={0735-23-2286}},
  202.         { 田  辺 },{ROAD2:={0739-22-4340}},
  203.         { 奈  良 },{ROAD2:={0742-34-4191}},
  204.         { 橿  原 },{ROAD2:={07442-2-9040}},
  205.         { 彦  根 },{ROAD2:={0749-22-4140}},
  206.         { 京  都 },{ROAD2:={075-213-5600}},
  207.         { 福知山 },{ROAD2:={0773-24-2622}},
  208.         { 宇  治 },{ROAD2:={0774-45-4501}},
  209.         { 大  津 },{ROAD2:={0775-25-9750}},
  210.         { 武  生 },{ROAD2:={0778-21-3214}},
  211.         {神戸明石},{ROAD2:={078-936-9666}},
  212.         { 姫  路 },{ROAD2:={0792-81-1561}},
  213.         { 加古川 },{ROAD2:={0794-35-8734}},
  214.         { 西　脇 },{ROAD2:={0795-42-8650}},
  215.         { 西  宮 },{ROAD2:={0798-64-3661}},
  216.         {直接入力},{setTEL}
  217.         );
  218.     };
  219.  
  220. %CHUGOKU{
  221.     SNDMSG({erande.snd});
  222.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  223.         ,,
  224.         { 広  島 },{ROAD2:={082-222-7110}},
  225.         { 東広島 },{ROAD2:={0824-22-3530}},
  226.         {   呉   },{ROAD2:={0823-25-2942}},
  227.         { 下  関 },{ROAD2:={0832-34-6001}},
  228.         { 徳  山 },{ROAD2:={0834-32-8313}},
  229.         { 宇  部 },{ROAD2:={0836-22-5790}},
  230.         { 山  口 },{ROAD2:={0839-23-1085}},
  231.         { 福  山 },{ROAD2:={0849-26-2421}},
  232.         { 松  江 },{ROAD2:={0852-31-9666}},
  233.         { 鳥  取 },{ROAD2:={0857-29-4694}},
  234.         { 米  子 },{ROAD2:={0859-35-4020}},
  235.         { 岡  山 },{ROAD2:={086-221-2207}},
  236.         { 倉  敷 },{ROAD2:={086-462-2770}},
  237.         { 津  山 },{ROAD2:={0868-24-0533}},
  238.         {直接入力},{setTEL}
  239.         );
  240.     };
  241.  
  242. %SHIKOKU{
  243.     SNDMSG({erande.snd});
  244.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  245.         ,,
  246.         { 丸  亀 },{ROAD2:={0877-23-7007}},
  247.         { 高  松 },{ROAD2:={0878-21-0251}},
  248.         { 徳  島 },{ROAD2:={0886-56-9910}},
  249.         { 高  知 },{ROAD2:={0888-24-5454}},
  250.         { 宇和島 },{ROAD2:={0895-45-3255}},
  251.         { 新居浜 },{ROAD2:={0897-32-7225}},
  252.         { 今  治 },{ROAD2:={0898-32-6667}},
  253.         { 松  山 },{ROAD2:={0899-31-9300}},
  254.         {直接入力},{setTEL}
  255.         );
  256.     };
  257.  
  258. %KYUSYU    {
  259.     SNDMSG({erande.snd});
  260.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  261.         ,,
  262.         { 福  岡 },{ROAD2:={092-452-1900}},
  263.         { 北九州 },{ROAD2:={093-541-6116}},
  264.         { 久留米 },{ROAD2:={0942-39-8670}},
  265.         { 大牟田 },{ROAD2:={0944-56-6751}},
  266.         { 飯  塚 },{ROAD2:={0948-21-3210}},
  267.         { 佐  賀 },{ROAD2:={0952-24-2584}},
  268.         { 唐  津 },{ROAD2:={0955-74-1200}},
  269.         { 佐世保 },{ROAD2:={0956-46-1006}},
  270.         { 大  村 },{ROAD2:={0957-52-5150}},
  271.         { 長  崎 },{ROAD2:={0958-22-6181}},
  272.         { 熊  本 },{ROAD2:={096-359-6300}},
  273.         { 八  代 },{ROAD2:={0965-31-5700}},
  274.         { 山  鹿 },{ROAD2:={0968-44-1111}},
  275.         { 大  分 },{ROAD2:={0975-33-5455}},
  276.         { 延  岡 },{ROAD2:={0982-34-0370}},
  277.         { 宮  崎 },{ROAD2:={0985-32-0301}},
  278.         { 鹿児島 },{ROAD2:={0992-24-8835}},
  279.         { 鹿  屋 },{ROAD2:={0994-41-1115}},
  280.         { 川  内 },{ROAD2:={0996-44-4440}},
  281.         {直接入力},{setTEL}
  282.         );
  283.     };
  284.  
  285. %OKINAWA{
  286.     SNDMSG({erande.snd});
  287.     select({ROAD2の電話番号を選択してネ☆（現在は『}|ROAD2|{』）},
  288.         ,,
  289.         { 那  覇 },{ROAD2:={098-866-7179}},
  290.         { 都　城 },{ROAD2:={0986-23-2012}},
  291.         {直接入力},{setTEL}
  292.         );
  293.     };
  294.  
  295. %setNODE{
  296.     case(ROAD2,{},{ROAD2:={未設定}});
  297.     SNDMSG({erande.snd});
  298.     footnote({ＲＯＡＤ２アクセス･ポイント地域の設定処理中,,,♪});
  299.     select({ＲＯＡＤ２アクセス･ポイント地域を選択してネ☆）},
  300.         ,,
  301.         { 北海道 },{HOKKAIDO},    { 東  北 },{TOHOKU},
  302.         { 北関東 },{NKANTO},    { 南関東 },{SKANTO},
  303.         { 東  京 },{TOKYO},    { 北信越 },{HOKURIKU},
  304.         { 中  部 },{TYUBU},    { 近  畿 },{KINKI},
  305.         { 中  国 },{CHUGOKU},    { 四  国 },{SHIKOKU},
  306.         { 九  州 },{KYUSYU},    { 沖  縄 },{OKINAWA},
  307.         {直接入力},{setTEL}
  308.         );
  309.     };
  310.  
  311. setNODE;
  312.